VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Easy HTML by $mTp "
ClientHeight = 6180
ClientLeft = 2490
ClientTop = 1545
ClientWidth = 7005
Icon = "easy html.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6180
ScaleWidth = 7005
Begin VB.CommandButton Command1
Caption = "Click here when you finish designing your Web page"
Height = 495
Left = 0
TabIndex = 1
Top = 5640
Width = 6975
End
Begin MSComDlg.CommonDialog cd1
Left = 6480
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox Text1
Height = 5055
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "easy html.frx":0442
Top = 480
Width = 6975
End
Begin VB.Label Label4
Caption = "Horizontal line"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 4800
TabIndex = 5
Top = 120
Width = 1455
End
Begin VB.Line Line4
X1 = 4560
X2 = 4560
Y1 = 120
Y2 = 360
End
Begin VB.Line Line1
X1 = 2640
X2 = 2640
Y1 = 120
Y2 = 360
End
Begin VB.Label Label2
Caption = "Headings"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3120
TabIndex = 4
Top = 120
Width = 1095
End
Begin VB.Label Label3
Caption = "Add: "
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 3
Top = 120
Width = 495
End
Begin VB.Label Label1
Caption = "Paragraph breaks"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 720
TabIndex = 2
Top = 120
Width = 1935
End
Begin VB.Menu mnufile
Caption = "&File"
Begin VB.Menu mnuopen
Caption = "&Open"
Shortcut = ^O
End
Begin VB.Menu mnusave
Caption = "&Save"
Shortcut = ^S
End
Begin VB.Menu mnubrowser
Caption = "&Preview in browser"
Shortcut = ^B
End
Begin VB.Menu mnuexit
Caption = "&Exit"
Shortcut = ^X
End
End
Begin VB.Menu mnuscript
Caption = "&Script"
Begin VB.Menu mnujava
Caption = "&Javascript"
End
Begin VB.Menu mnuvb
Caption = "&Vbscript"
End
End
Begin VB.Menu mnuhtml
Caption = "Html Elements"
Begin VB.Menu mnuforms
Caption = "Add Forms"
Begin VB.Menu mnuradio
Caption = "Radio Buttons"
End
Begin VB.Menu mnudownbutton
Caption = "Drop-down button"
End
Begin VB.Menu mnutextarea
Caption = "Text Area"
End
Begin VB.Menu mnutext
Caption = "Text Box"
End
Begin VB.Menu mnucheckb
Caption = "Check Boxes"
End
Begin VB.Menu mnubuttons
Caption = "Buttons"
End
End
End
Begin VB.Menu mnuappearance
Caption = "Appearance"
Begin VB.Menu mnubackcolor
Caption = "&Back color"
End
Begin VB.Menu mnufontcolor
Caption = "Font color"
End
End
Begin VB.Menu mnuabout
Caption = "About"
End
Begin VB.Menu mnuhelp
Caption = "Help"
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.Text = Text1.Text & vbCrLf & vbCrLf & ""
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub
Private Sub Form_Load()
KeyPreview = True
Text1.Text = "" & vbCrLf & vbCrLf & "" & vbCrLf & "" & "Web Page" & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Label2.ForeColor = vbRed
Label1.FontBold = False
Label2.FontBold = False
Label4.ForeColor = vbRed
Label4.FontBold = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim X%
X% = MsgBox("Are you sure you want to quit?", vbYesNo, "Exit program")
If X% = vbNo Then
Cancel = 1
Exit Sub
End If
End Sub
Private Sub Label1_Click()
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "
" & vbCrLf & "
"
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Label1
.ForeColor = vbBlue
.FontBold = True
End With
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Label2
.FontBold = True
.ForeColor = vbBlue
End With
End Sub
Private Sub Label2_Click()
Dim w$
w$ = InputBox("Enter the 'number' of your heading" & vbCrLf & "For example, for
write 1 , for
write 2 and so on...", "Headings")
If w$ <> "" And IsNumeric(w$) Then
textvariable$ = vbCrLf & "" & vbCrLf & ""
Text1.Text = Text1.Text & textvariable$
MsgBox "You have to enter a NUMBER", , "Error"
End If
End Sub
Private Sub Label4_Click()
Text1.Text = Text1.Text & vbCrLf & ""
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Label4
.ForeColor = vbBlue
.FontBold = True
End With
End Sub
Private Sub mnuabout_Click()
Load frmabout
frmabout.Show
End Sub
Private Sub mnubackcolor_Click()
cd1.ShowColor
Text1.BackColor = cd1.Color
End Sub
Private Sub mnubrowser_Click()
Dim m As Long
Open App.Path & "\preview.html" For Output As #1
Print #1, Text1.Text
Close #1
m = ShellExecute(Me.hwnd, "open", App.Path & "\preview.html", "", App.Path, 1)
End Sub
Private Sub mnubuttons_Click()
Text1.Text = Text1.Text & vbCrLf & vbCrLf & ""
End Sub
Private Sub mnucmdbutton_Click()
Dim subproc$
subproc$ = InputBox("Enter the NAME of the object2")
End Sub
Private Sub mnudownbutton_Click()
Text1.Text = Text1.Text & vbCrLf & ""
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnufonctions_Click()
Text1.Text = Text1.Text
End Sub
Private Sub mnufontcolor_Click()
cd1.ShowColor
Text1.ForeColor = cd1.Color
End Sub
Private Sub mnulistb_Click()
End Sub
Private Sub mnuhelp_Click()
MsgBox "Read carefully the text file enclosed (eazyhtmlhelp.txt) and if you still have any questions then email me :warthog@mad.scientist.com", , "$mTp eazy HTML"
'i did not write this one yet maybe in a few days...
End Sub
Private Sub mnujava_Click()
Text1.Text = Text1.Text & vbCrLf & ""
End Sub
Private Sub mnuopen_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Html Files (*.html)|*.html|Htm Files (*.htm)|*.htm"
cd1.Filter = strfilter
cd1.ShowOpen
If cd1.FileName <> "" Then
Open cd1.FileName For Input As #ff
Do Until EOF(ff)
Line Input #ff, strlines
alltext = alltext & strlines & vbCrLf
Text1.Text = alltext
End If
cd1.CancelError = False
Close #ff
End Sub
Private Sub mnuradio_Click()
Text1.Text = Text1.Text & vbCrLf & "
" & vbCrLf & "
"
End Sub
Private Sub mnusave_Click()
Load Form2
Form2.Show
End Sub
Private Sub mnutext_Click()
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "
" & vbCrLf & "
"
End Sub
Private Sub mnutextarea_Click()
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "
" & vbCrLf & "
"
End Sub
Private Sub mnuvb_Click()
Text1.Text = Text1.Text & vbCrLf & ""
End Sub